home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / pleas / ole / visio / search / frmconfi.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-05-18  |  3.6 KB  |  134 lines
  1. VERSION 2.00
  2. Begin Form frmConfirm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Confirm Replace"
  5.    ClientHeight    =   2760
  6.    ClientLeft      =   3255
  7.    ClientTop       =   1350
  8.    ClientWidth     =   4725
  9.    ControlBox      =   0   'False
  10.    Height          =   3255
  11.    Left            =   3150
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2760
  16.    ScaleWidth      =   4725
  17.    Top             =   960
  18.    Width           =   4935
  19.    Begin CommandButton DoCancel 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Cancel"
  22.       Height          =   495
  23.       Left            =   3360
  24.       TabIndex        =   3
  25.       Top             =   2160
  26.       Width           =   1215
  27.    End
  28.    Begin CommandButton DoOK 
  29.       Caption         =   "Replace"
  30.       Default         =   -1  'True
  31.       Height          =   495
  32.       Left            =   3360
  33.       TabIndex        =   2
  34.       Top             =   120
  35.       Width           =   1215
  36.    End
  37.    Begin CommandButton DoAll 
  38.       Caption         =   "Replace All"
  39.       Height          =   495
  40.       Left            =   3360
  41.       TabIndex        =   1
  42.       Top             =   1320
  43.       Width           =   1215
  44.    End
  45.    Begin CommandButton DoSkip 
  46.       Caption         =   "Skip"
  47.       Height          =   495
  48.       Left            =   3360
  49.       TabIndex        =   0
  50.       Top             =   720
  51.       Width           =   1215
  52.    End
  53.    Begin Label Label6 
  54.       Caption         =   "In Field:"
  55.       Height          =   255
  56.       Left            =   120
  57.       TabIndex        =   11
  58.       Top             =   2280
  59.       Width           =   855
  60.    End
  61.    Begin Label Label5 
  62.       Caption         =   "In Shape:"
  63.       Height          =   255
  64.       Left            =   120
  65.       TabIndex        =   10
  66.       Top             =   1920
  67.       Width           =   855
  68.    End
  69.    Begin Label lblInShape 
  70.       BorderStyle     =   1  'Fixed Single
  71.       Height          =   255
  72.       Left            =   1080
  73.       TabIndex        =   9
  74.       Top             =   1920
  75.       Width           =   2175
  76.       WordWrap        =   -1  'True
  77.    End
  78.    Begin Label lblInField 
  79.       BorderStyle     =   1  'Fixed Single
  80.       Height          =   255
  81.       Left            =   1080
  82.       TabIndex        =   8
  83.       Top             =   2280
  84.       Width           =   2175
  85.    End
  86.    Begin Label lblFoundTxt 
  87.       BorderStyle     =   1  'Fixed Single
  88.       Height          =   1095
  89.       Left            =   240
  90.       TabIndex        =   7
  91.       Top             =   720
  92.       Width           =   3015
  93.       WordWrap        =   -1  'True
  94.    End
  95.    Begin Label Label3 
  96.       Caption         =   "Found:"
  97.       Height          =   255
  98.       Left            =   120
  99.       TabIndex        =   6
  100.       Top             =   480
  101.       Width           =   855
  102.    End
  103.    Begin Label lblSearching 
  104.       BorderStyle     =   1  'Fixed Single
  105.       Height          =   255
  106.       Left            =   1200
  107.       TabIndex        =   5
  108.       Top             =   120
  109.       Width           =   2055
  110.    End
  111.    Begin Label Label1 
  112.       Caption         =   "Searching:"
  113.       Height          =   255
  114.       Left            =   120
  115.       TabIndex        =   4
  116.       Top             =   120
  117.       Width           =   975
  118.    End
  119. Sub DoAll_Click ()
  120.    FindMode = srDoAll
  121.    frmConfirm.Hide
  122. End Sub
  123. Sub DoCancel_Click ()
  124.   End
  125. End Sub
  126. Sub DoOK_Click ()
  127.    FindMode = srDoOne
  128.    frmConfirm.Hide
  129. End Sub
  130. Sub DoSkip_Click ()
  131.    FindMode = srSkip
  132.    frmConfirm.Hide
  133. End Sub
  134.